ints = [0 .. 999]
isMultiple3Or5 x = x `mod` 3 == 0 || x `mod` 5 == 0
multiples = filter isMultiple3Or5 ints

answer = foldr (+) 0 multiples
main = $ print answer
